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-TITLE MPAST = MULTIPROCESSOR AST ROUTINES 
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Facility: Executive, Scheduler 
Abstract: Primitives for AST queueing and delivery. 
Environment: MODE=Kernel 
Author: RICHARD I. HUSTVEDT, Creation date: 15-MAY-1979 
Modified by: 
v02-009 congess Kathleen D. Morse 27-Aug-1981 


n't do rescheduling AST if process can not run on 
secondary due to non-zero PHDSL_MPINHIBIT. 


v02-008 KDM0015 thleen D. Morse 12-Jun-1981 
Add use of hook MPHSGEMPTYCONT. 
v02-007 KOM0011 Kathleen D. Morse 29-Apr-1981 


Integrate a new per formance-imoroved AST delivery routine. 
Use new exec labels for hooks: MPH$<name>. 


v02-006 KDM0010 Kathleen D. Morse 06-Apr-1981 


X/VMS_Macro V04-00 Page 


| 
| 
| 
=] 


H 13 
= MULTIPROCESSOR AST ROUTINES 1 mi teeth 332333 AX/VMS Macro ag Page 2 


‘ 
‘oo 
a 


poole hel ol ol ola a lal ola lololo lolol olololol a!) 
OOOO? Goooooooooooooo°o°0oo 
ole le] ais leleololelelelelolelelalelelelololo lo) 
SINNED AAA AAAAAO OUI 
OE OO ONO EWN" O OONIOUS Ww 
Sete Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Se Ge Se Ge Se Se 


SOOoOOooCooOoCOoOoOOCOOOOOOOOoOoOOoOO 


“SEP=19 2:06: MP.SRCIJMPAST.MAR; 1 (1) 


Only cause rescheduling AST if peers is some other 
process to run (not null) and there are no AST's 
queued to this process, in addition to other checks. 


v02-005 KDM0009 thleen D. 06-Apr-1981 
Add new beet nes, *RPSEASTNEWL TL aad MPSSASTSEHEDCHK, 
that used to be in module, MPSCHED. Rename module 


to be MPAST. 

v02-004 KDM0008 Kathleen D. Morse 01-Apr-1981 
Set ASTLVL processor register to executive eode if 
the secondary is idle and the PHD ASTLVL > PR ASTLVL. 

v02-003 KOM0003 Kathleen D. Morse 15-Sep-1980 
Make changes to run on VMS V2.0. 

v02-002 KDM0001 Kathleen D. Morse 04-Sep-1980 
Replace copyright. 
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~SBTTL DECLARATIONS 
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: INCLUDE FILES: 


> MACROS: 


: EQUATED SYMBOLS: 


DOOOCGOCOOCOOCOO 
SOoOOCSCOOCOSOOOOOOOOOCOOOOOOOooOO 


OO 0000000090900 C0 CD CD CD08 II 


MEW OOONOUS Wh -O0Oon 


SOOO QOOOOOOoCOOCOoCOoOOOoOoOoOOoOoOooOoooOo 


0 
0 SACBDEF ; AST control block definitions 
0 SIPLDEF : IPL definitions 
0 SLCKDEF ; Interlock bit definitions 
0 SMPSDEF 3; Secondary processor states 
0 SPCBDEF 3; PCB definitions 
0 96 SPHODEF ; PHD definitions : 
0 97 SPRDEF ; Processor register definitions 
0 98 SPRIDEF ; Priority increment class defs 
0 99 SPSLDEF 3; PSL field definitions 
0 0 SSSDEF 3; Status code definitions 
8 8 SSTATEDEF 3; Define state values 
00000000 8 ASTEXIT = 0 ; AST exit change mode code 


: OWN STORAGE: 
.PSECT ASEXENONPAGED LONG 
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; FUNCTIONAL DESCRIPTION: 


MPSSQAST inserts the AST control block supplied in the proper 
; apy by access mode in the AST queue of the process specified 
y the PID field of the AST control block. An AST arrival event 
is then reported for the process to react ivese from a wait state 
: if epereer ate. The AST control block will be released immediately 
if the PID specifies a non-existent process. 


ENVIRONMENT: 
Executed by the primary processor. 
CALLING SEQUENCE: 


SSSSSSssssssssssssss 
SoOoOoOoOoOoOoOoOoOoOoOoOOoOOoOOoOoOSoSoO 
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11 
11 
11 
11 
11 
11 
11 
11 
11 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
00 1 
8 : INPUT PARAMETERS: 
00 13 Re - Priority increment class 
88 3 R5 = Pointer to AST control block 
8p \; IMPLICIT INPUTS: 
Bee 1? PCB of process identified by PID field 
B68 1? OUTPUT PARAMETERS: 
000 14 RO - Completion status code $ 
BR8 1 R4 = PCB address of process for which AST was queued 
4 i? SIDE EFFECTS: 
000 14 The process identified by the PID in the AST control block 
444 \ will be made executable if not suspended. 
$009 15 COMPLETION CODES: 
4 15 : 
00 15 SS$_NORMAL = Normal successful completion status 
3 1 SSS$_NONEXPR = Non-existent process 
0 102% See 
0 15 
0 15 -ENABL LSB 
0 159 QNONEXPR: : 
50 55 »o0 0 160 MOVL R5,RO 3; RELEASE AST CONTROL BLOCK 
90000000" GF 16 0003 161 JSB GE XESDEANONPAGED > IF_NO SU C 
5 08E8 7 3¢ 3 196 MOVZWL #SS$_NONEXPR,RO ; SET ERROR STATUS CODE 
> oa : 19 BRB QEXIT ; AND EXIT 
1 165 MPSS$QAST:: ; ENQUEUE AST FOR PROCESS 
50 OC AS 3¢ 1 196 MOVZWL Ac bss P10 (nS) RO ; GET PROCESS INDEX F 
14 16 DSBINT #I1PL$_SYNCH 3; DISABLE SYSTEM EVEN 
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54 00000000'GF oD ”m 3 8 MOVL Ge SCHSGl PC PCBVEC,R4 ; GET ADDRESS oF VECTOR 
6440 D . a9 MOVL  (R4)CR LOOK UP PCB A 
60 a4 OC AS OD 5 6170 CMPL ACBSL PI6(RS), PCBSL -PID(h) CHECK FOR ORAT OH IN PID 
4 12 A 171 NEQ § QNONERP ; PIb MISMATCHES 
g ps C 1% CLRL sR ; ASSUME KERNEL MODE AND CLEAR HIGH BITS 
10 AG 6 : 17 INSQUE (R5),PCBSL_ASTQFL(RG) ; ASSUME QUEUE IS EMPTY AND ATTEMPT INSERT 
1 174 BNEQ ; BR IF IT WAS NOT EMPTY 
95 0034 175 TSTB  ACBSB_RMOD(RS) ; CHECK FOR SPECIAL KERNEL AST 
06 19 0037 1% BLSS.  10$ : BR IF YES 
50 OB AS FC 8F 8&8 0 ’ 7 BICB3 #*C<3>,ACBSB_RMOD(RS),RO: GET AST MODE 
0 F 158 : THE PROCESS HEADER ADDRESS Is ALWAYS A SYSTEM SPACE ADDRESS (NEGATIVE NUMBER) 
F 180 ; WHILE THE PROCESS HEADER IS RESIDENT. DURING THE OUTSWAP TRANSITION IT 
OO3F 181 ; THE BALANCE SLOT INDEX, A SMALL POSITIVE NUMBER. FINALLY, AFTER OUTSWAP IT 
00 FY ¢ IS SET TO ZERO. HENCE, THE FOLLOWING TEST COMBINES THE FETCH OF THE PHD 
99 F 183 ; ADDRESS WITH THE TEST FOR PROCESS RESIDENCE. 
51 6C AG DO 003F 185 i0$: Move PCBSL_ PHD(R4),R1 ; POINT TO PROCESS HEADER 
18 0043 1 6 BGEQ 25% : T SET ASTLVL IF NOT RESIDENT 
OOcF c1 50 90 0045 18 MOVB RO, PHD$B_ASTLVL(R1) 4 ASTLVL IN PROCESS HEADER 
2c OE 81 004A 188 208 CMPW =: #SCHSC_COR, PCBSW_ STATE(RA). ; 1S PROCESS A CURRENT PROCESS? 
€ 12 904 189 BNEQ 25$ : Bk NO, NOT A CURRENT PROCESS 
54 00000000" GF p} 005 190 CPL G°SCHSGL_CURPCB, a4 : 1s Process ON PRIMARY? 
FFAG* 30 0059 198 seu meh? SSINTSCND : INTERRUPT SECONDARY PROCESSOR 
905¢ 194 5258: RPTEVT A : REPORT AST ARRIVAL 
00000000'GF 16 005¢ 195 853: JSB G*SCHSRSE + REPORT AST ARRIVAL 
90° 006¢ 196 -BYTE EVTS$_AST : EVENT CODE 
50 01 C 0063 197 30$:  MOVZWL #SSS"NORMAL,RO : SET SUCCESS STATUS CODE 
0066 198 QEXIT: ENBIN : ENABLE INTERRUPTS 
12 BE DA 0066 MTPR (SP) +, S*#PRS_IPL" 
05 0069 199 RSB : AND RETURN 
06A 201; IF THE AST IS BEING ENQUEVED FOR THE CURRENT PROCESS, THEN THE REPORTING 
006A 0 : OF THE AST peveNt CAN BE BYPASSED AND THE ASTLVL PROCESSOR REGISTER MUST BE 
aN 87 3; SET INSTEAD 
13. 50 DA 006A 205 408: MTPR RO, #PRS_ASTLVL : ALSO SET ASTLVL REGISTER 
>a 0060 06 BRB 30$ ; 
06F 208 : THE AST QUEUE WAS NOT EMPTY (ITS USUAL CONDITION) AND THE PROPER 
006F 209 : POSITION FOR THE NEW AST MUST BE LOCATED. SINCE THE AST CONTROL 
O6F 19 : BLOCK HAS BEEN ERRONEOUSLY INSERTED ON THE QUEUE, IT MUST BE REMOVED 
06F 12 : 
55 65 OF O6F i S0$: REMQUE (R5).RS5 : ELSE CORRECT MISTAKE 
51° 10046 OD 2 21% MOVAL PCB$L_ASTQFL(R4),R1 : POINT TO QUEUE HEADER 
53 61 OD 26 15 MOVL  (R1),R3 t AND GET FIRST ENT 
op AS 9 ? 18 TSTB © ACB$B_RMOD(RS) : CHECK FOR SPECIAL RT ERNEL AST 
OF 18 ore BGEQ 70$ : BR IF NOT 
O7E i§ : THE NEW AST IS A SPECIAL KERNEL AST. IT WILL GO AFTER ALL OTHER SPECIAL | 
Ove 9 > KERNEL ASTS OR AT THE HEAD OF THE QUEUE IF THERE ARE NONE. 
53 51 «D1 Ort é 80S:  CMPL R1,R3 CHECK FOR END OF QUEUE 
27: 13'—«0081 BEQL «=s«a3'08 BR IF NOT 
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0B As 9 3 4 TSTB = ACBSB_RMOD(R3) : CHECK FOR SPECIAL KERNEL IN QUEUE 
7 1 6 5 BGEQ 110$ ; BR IF 
53 D $ MOVL  (R3),R3 ; FLINK ON TO NEXT ACB. 
fF. 1 0 ; BR 60$ ; 
D § ; THE NEW AST IS A NORMAL AST. IT WILL GO AFTER ALL SPECIAL KERNEL ASTS 
p 9 > AND ASTS WITH LOWER ACCESS MODE. 
50 OB AS FC ef 8B p : 70$:  B1CB3 #*C<3> ,ACBSB_RMOD(RS) ,RO; GET AST MODE 
53. 51—=é«ék 0 80$: CMPL : CHECK FOR END OF QUEUE 
12 13 3% 4 BEQL «=s«d1:08 : INSERT IF AT END 
02 00 €D 09 5 CMPZV #ACBSV MODE #ACBSS _MODE,= 
50 OBA 98 $ ACB$B_RMOD(R3).R ; COMPARE ACCESS MODES 
05 14 009 BGTR 100$ ~ : IF GTR AT RIGHT PLACE 
53 63 00 OA 8 90S: MOVL (R3),R3 : FLINK ON TO NEXT ACB 
0B S 95 O0A 40 100$: TSTB ACBSB_RMOD(R3) : IS THIS ENTRY A SPECIAL KAST? 
F619 OA8 41 BLSS 90$ : YES, MUST GO AFTER THIS 
OOAA rk t NOW THE aGORRECT POSITION HAS BEEN LOCATED. INSERT THE AST CONTROL BLOCK 
QOAA 244 ; ON THE QUEUE AND COMPUTE THE NEW VALUE FOR ASTLVL BY INTERROGATING THE 
QOAA 43 + MODE OF THE AST CONTROL BLOCK AT THE HEAD OF THE QUEUE. 
0483 65 OF OOAA ¢3 110$:  INSQUE (5) ,@ACBSL_ ASTQBL(R3) ; INSERT AFTER PREVIOUS 
50 4 OOAE 48 CLRL— RO : ASSUME KERNEL MODE 
51 10 A6 DO 008 49 MOVL  PCBSL -ASTGFL (RA), R1 : GET HEAD OF AST QUEUE 
0B Al 95 0084 250 TSTB ACBSB-RMOD(R1) : I$ IT KAST? 
86 19 00B7 251 BLSS. 1 : BR IF YES TO SET ASTLVL 
50 OB Al FC 8F 88 0089 38 BICB3 #*C<3>,ACB$B_RMOD(R1).RO: GET AST MODE FOR HEAD OF QUEUE 
FF7D 31 OOBF 25 BRW 10$ : GO SET ASTLVL 
00¢ 54 
00¢ 55 .DSABL LSB 
00¢ 56 ASSUME ACBS$V_MODE EQ 0 
00¢ 57 ASSUME ACBS$S~MODE EQ 2 
99¢ 38 ASSUME ACBSV~KAST EQ 7 
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ca SBTTL_ -MPSSASTSCHEDCHK = CHECK FOR RESCHEDULE AT AST DELIVERY 
; FUNCTIONAL DESCRIPTION: 


; MPSSASTSCHEDCHK is entered to check whether the process that the 
; primary was running, should be rescheduled to run on the secondary. 


> ENVIRONMENT: 


1 
T 
C 
C 
C 
C 4 
: 5 
Oc 5e9 
OC 8 ; 
OC 9 . 
0c 0; Executed by the prieer rocessor. 
be 1; Hooked in at MPHSASTDELHK and sometimes returns to MPHS$ASTDELCONT. 
it § e = 
00C 4 
Boe 5 ALIGN LONG 
0C4 § MPSSASTSCHEDCHK:: 
55 1084 OF bore REMQUE @PCBSL_ASTQFL(R4),R5 3; Remove head of queue e 
06 1D 00C8 8 BVS 208 :; Br if queue empty 
00000000'9F 17 OOCA 10$: JMP @#MPHSASTDELCONT ; Return to normal code 
00 0000'CF 00 £6 Q0D0 0 gos: BBSSI #LCKSV_INTERLOCK,W*MPSS$GL_INTERLOCK,30$ ; Flush cache queue 
01 QO00'CF Di 00D6 1 30$: CMPL W*MPSSGL_SIATE,AMPSSK_IDLESTATE ; Is secondary idle? 
03 12 O00DB ¢ BNEQ 40$ ; Br on no, dont bother to reschedule 
Q0DD SOFTINT # ; Request a reschedule interrupt 
14 03 DA O0DD MTPR #3,S“°APRS_SIRR 
00000000'9F 17 OOEO 284 40S: JMP a#MPHSQEMPTYCONT ; Go set null ast level 
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: § a «SBTTL MPSSASTNEWLVL = CHECK FOR SETTING NEW ASTLVL 
: 8 ; FUNCTIONAL DESCRIPTION: 
E 0 ; MPSSASTNEWLVL is entered to check whether a new AST level should 
E 91 ; be placed in the processor ASTLVL register If the AST level is kernel, 
E 3 ; it should be left alone. Otherwise, the special indication of an idle 
Oe6 37 3 secondary may be used. 
OE 95 ; ENVIRONMENT: 
0E6 96; 
Seee 97; Executed by the 8 Erinery processor. 
tit > ‘ Hooked in at MPHSNEWLVL, replaces code from hook to end of routine. 
bee 00 ;-- 
OE 01 
0E6 8 -ALIGN LONG 
pee 03 MPSSASTNEWLVL:: 
13 DA OOE 04 MTPR Re #PRS$_ASTLVL ; Set Annis) op register 
32 13 00EB 305 BEQL ©- 208 If kernel, dont change it 
00 0000'CF 0 £6 OOED 88 BBSSI #LCK$V sianace wevebel INTERLOCK, 108. ; Flush cache queue 
01 0000° +4 D1 OOF3 07 10$: CMPL W*°MPSSGL_STATE,#MPSSK_ 1OLES BiAre Is secondary idle? 
12 OOF8 08 BNEQ on no, dont change ASTLVL 
QOO00000'GF 7FFFFFFF at D st 309 BITL @“X7FRFFFFF,G*SCHSGL_ comis’: ts any process other than null COM? 
1 105 10 BEQL 0$ : Br on no, nothin else can run 
10 AS =9F =—0107 11 PUSHAB PCBSL_ASTQFL(R4) ; Are there any AST's gutstandin 
10 AS BE D1 QI0A \¢ CMPL (SP)+ 7 PCBSL_ASTQFL(R4) ; for this process? i 322 don‘ 
12 QO10E 31 BNEQ 2 3 cause a reschedule AST. 
0104 cO D5 0110 314 TSTL PHDSL_MPINHIBIT(RO) 3; Any reason not to A... on secondary? 
03 12 #0114 315 BNEQ 20$ ; Br on yes, don't cause reschedule AST 
13 OF DA 0116 316 MTPR #PSLSC_EXEC,MPRS$_ASTLVL ; Set ASTLVL to cause reschedule 
Oocr CO 452 «690 (0119 317 208: MOVB R2,PHDSB_ASTLVL(RO) : Set ASTLVL in PHD 
Q11E 318 ENBINT ; Enable system events again 
12 8E DA OIE MTPR (SP)+,S*#PR$_IPL 
05 0121 £319 RSB 3; Return 
0122 320 
0122 321 ~END 
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MPSSK_IDLESTATE 
MPSSQAST 
PCBSL_ASTOFL 
PCBSL_PH D 
PCBSL~PID 
PCBSW_ STATE, 
PHD$B_ASTL 


PHDSL— APINNIBIT 
PRS ASTLVL 


RS-SIRR 
PSLSC_EXEC 
EX 


SCHS$GL"PCBVEC 
SCHS$R 


SS$_NONEXPR 
SS$_NORMAL 


PSECT nome 


$aBss 
ASE XENOWPAGED 
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00000008 
00000000 
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NOP IC 
NO 
NOPIC 


USR 
USR 
USR 


pases Macro yos-0 
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CON LCL sos pe a fo NORD vege i NOVEC BYTE 
CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
CON REL LCL NOSHR EXE RD Unt NOVEC LONG 
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Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 
Initialization 47 0: 8:08 -49 0:00:00.79 
Command processing 164 0:00: S-3 8: 706.15 
Pass 301 Q: 8: 23 :00:26.48 
Symbol table sort 0:00:01.4 0:00:02.56 
Pass 2 7 0:00:01.74 0:00:05.31 
Symbol table output 0:00:00.07 0:00:00.21 
Psect synopsis output § 0: $80 + B3 0:00:00.09 
Cross-reference output 0:00: 9-99 0:00:00.00 
Assembler run totals 599 00:00:13. 00:00:41.59 


The working set Limit was 1500 pages. 

47761 bytes (94 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space allocated to hold 871 non-local and 18 local symbols. 
326 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

25 pages of virtual memory were used to define 22 macros. 
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Macro Library name Macros defined 
-$255$0UA28: (MP .OBJ IMP .MLB; 1 4 
_$255$DUA28: (SYS.OBJJLIB.MLB; 1 9 
$255$DUA28: (CSYSLIBJSTARLET.MLB;2 7 
TOTALS (all Libraries) 20 


1040 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 
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